<%
app=request.QueryString("a")

set db=server.CreateObject("adodb.connection")
set rs=server.CreateObject("adodb.recordset")
		  
filepath=server.MapPath("access/backend/admin.mdb")
		
sql="select script from event_scripts where event='" & app & "'"
		  
db.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filepath
rs.cursorlocation=3
		  
rs.open sql,db,1,2
'rs.activeconnection=nothing
if rs.recordcount=0 then
	response.Write("{none}")
else
	response.Write(rs("script"))
end if
rs.close
db.close

%>

